Vous pouvez utiliser cette fonction
function TDateTimeToTFileTime(MYDateTime:TDateTime):TFileTime;
var
systemtime:TSystemTime;
filetimemodified,localfiletimemodified:TFileTime;
begin
datetimetosystemtime(today, systemtime); //sysutils
systemtimetofiletime(systemtime,filetimemodified); //windows
filetimetolocalfiletime(filetimemodified,localfiletimemodified);
result:=localfiletimemodified;
end;
Retour vers l'index delphi